/* GUI CONVERTED from reshmt.p (converter v1.76) Mon May 27 10:17:30 2002 */
/* reshmt.p - REPETITIVE   SUBCONTRACT SHIPMENT SHIPPER MAINT                */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                       */
/* All rights reserved worldwide.  This is an unpublished work.              */
/* $Revision: 1.5.1.2 $                                                         */
/*V8:ConvertMode=Maintenance                                                 */
/* REVISION: 7.3      LAST MODIFIED: 10/31/94           BY: WUG *GN77*       */
/* REVISION: 7.3      LAST MODIFIED: 11/03/94           BY: WUG *GN98*       */
/* REVISION: 7.3      LAST MODIFIED: 02/14/95           by: srk *G0DS*       */
/* REVISION: 8.5      LAST MODIFIED: 05/12/95           BY: pma *J04T*       */
/* REVISION: 7.3      LAST MODIFIED: 08/04/95           by: vrn *G0TN*       */
/* REVISION: 8.6      LAST MODIFIED: 04/09/97   BY: *K08N* Steve Goeke       */
/* REVISION: 8.6      LAST MODIFIED: 05/20/98   BY: *K1Q4* Alfred Tan        */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00   BY: *N0KP* myb               */
/* Old ECO marker removed, but no ECO header exists *F0PN*                    */
/* $Revision: 1.5.1.2 $    BY: Jean Miller           DATE: 04/26/02  ECO: *P06H*  */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

{mfdtitle.i "2+ "}

/* LOCAL VARIABLES */
define variable v_recid as recid initial ? no-undo.

/* SHARED TEMP TABLES */
{icshmtdf.i "new"}

{gprun.i  ""icshmt.p""  "("""", """", ""ISS-WO"", ?, output v_recid)" }
/*GUI*/ if global-beam-me-up then undo, leave.

